CGTyp CentOfGrav (n, ImSize, RegIm)
int  n, ImSize;
BYTE ** RegIm;
{
   int   r,c;
   CGTyp CenGra;
   long  yc,xc;

   yc=0;
   xc=0;
   for (r=0; r<ImSize; r++)
      for (c=0; c<ImSize; c++)
         if (RegIm[r][c]) {
            yc += r;
            xc += c;
         }
   CenGra.r = (int) (yc/n);
   CenGra.c = (int) (xc/n);
   return (CenGra);
}
